home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_56 / DoAction.as
Text File  |  2003-11-17  |  2KB  |  63 lines
  1. op = "0";
  2. c1 = "0";
  3. c2 = "0";
  4. c3 = "0";
  5. c4 = "0";
  6. c5 = "0";
  7. c6 = "0";
  8. pl1 = "1";
  9. pl2 = "1";
  10. pl3 = "1";
  11. pl4 = "1";
  12. pl5 = "1";
  13. pl6 = "1";
  14. pl7 = "0";
  15. x = "0";
  16. while(x < "20")
  17. {
  18.    y = "0";
  19.    while(y < "20")
  20.    {
  21.       if("19" < eval("m" add x add "_" add y))
  22.       {
  23.          set("m" add x add "_" add y,eval("m" add x add "_" add y) - "10");
  24.       }
  25.       removeMovieClip("s" add x add "_" add y);
  26.       duplicateMovieClip("/b" add eval("m" add x add "_" add y),"s" add x add "_" add y,x + y * "20" + 16384);
  27.       setProperty("s" add x add "_" add y, _X, x * "15" + dx + "7.5");
  28.       setProperty("s" add x add "_" add y, _Y, y * "15" + dy + "7.5");
  29.       removeMovieClip("kk" add x add "_" add y);
  30.       if(eval("m" add x add "_" add y) < "9" and "0" < eval("m" add x add "_" add y))
  31.       {
  32.          set("pl" add eval("m" add x add "_" add y),"0");
  33.          pl7 += "1";
  34.          if(end)
  35.          {
  36.             duplicateMovieClip("/b" add (eval("m" add x add "_" add y) + "10"),"kk" add x add "_" add y,x + y * "20" + "2000" + 16384);
  37.             setProperty("kk" add x add "_" add y, _X, x * "15" + dx + "7.5");
  38.             setProperty("kk" add x add "_" add y, _Y, y * "15" + dy + "7.5");
  39.             setProperty("kk" add x add "_" add y, _alpha, "20");
  40.          }
  41.       }
  42.       if("10" < eval("m" add x add "_" add y))
  43.       {
  44.          set("c" add (eval("m" add x add "_" add y) - "10"),eval("c" add (eval("m" add x add "_" add y) - "10")) + "1");
  45.          op = "1";
  46.       }
  47.       y += "1";
  48.    }
  49.    x += "1";
  50. }
  51. shipk = pl1 + pl2 + pl3 + pl4 + pl5 + pl6;
  52. x = "1";
  53. while(x < "7")
  54. {
  55.    y = "0";
  56.    while(y < "7")
  57.    {
  58.       setProperty("/pv" add x add (y + "1"), _alpha, "50" + "50" * (y < eval("c" add x)));
  59.       y += "1";
  60.    }
  61.    x += "1";
  62. }
  63.